home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 13 / AMIGAplus Sonderheft 13 (1998)(ICP)(DE)[!].iso / rexx / move.m2i < prev    next >
Text File  |  1997-11-18  |  219b  |  20 lines
  1. /* Get mouse and move selected window */
  2.  
  3. ADDRESS "M2IPort.Rexx"
  4. OPTIONS RESULTS
  5.  
  6. LASTSELECTPATH
  7. IF RC~=0 THEN EXIT
  8. DRAWER=RESULT
  9.  
  10. GETMOUSE "X"
  11. X=RESULT
  12.  
  13. GETMOUSE "Y"
  14. Y=RESULT
  15.  
  16. SET XPOS X DRAWER
  17. SET YPOS Y DRAWER
  18.  
  19. EXIT
  20.